home *** CD-ROM | disk | FTP | other *** search
/ EROS 2 / EROS 2.iso / mac / EROS vol.2 / EROS vol.DXR / 00663.ls < prev    next >
Encoding:
Text File  |  1995-12-20  |  503 b   |  15 lines
  1. on mouseUp
  2.   global md4, rantime, mp
  3.   set the cursor of sprite 7 to 0
  4.   set rantime to the ticks
  5.   set mp to 7
  6.   if the name of cast the castNum of sprite 7 = "f4bend" then
  7.     set the castNum of sprite 7 to the number of cast "f4bstart"
  8.     set md4 to the duration of cast the number of cast "f4bstart" - 3
  9.   else
  10.     set md4 to the duration of cast (the castNum of sprite 7 + 1) - 3
  11.     set the castNum of sprite 7 to the castNum of sprite 7 + 1
  12.   end if
  13.   set the cursor of sprite 7 to [50, 51]
  14. end
  15.